home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr36
/
mapl0301.zip
/
XPORTMSG.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-04-13
|
2KB
|
56 lines
' $linesize:132
' $title: ' SUB for Maple Street Version of RBBS-PC to Xport a message'
' $INCLUDE: 'RBBS-VAR.MOD'
'
' $SUBTITLE: 'MsgXport - Xport Message to file'
' $PAGE
'
' SUBPROGRAM NAME -- XportMsg
'
' INPUT PARAMETERS -- PARAMETER ??? MEANING ???
'
' OUTPUT PARAMETERS -- ???
'
' SUBPROGRAM PURPOSE -- Create a XportMessage file
'
10 SUB MsgXport (Mto$,Mfro$,SUbj$,CurMess,PNumRecs,ForPrintRec) STATIC
ForPrintRe$=" Re: "+SUbj$
ForPrintFrom$=" From: "+Mfro$
ForPrintTo$=" To: "+Mto$
ForPrintNum$="Message #"+Str$(CurMess) + " Xported from: " +ZConfName$
ForPrintRec=ZMsgPtr(ZMsgDimIndex,1) + ZNumHeaders - 1 'RS Xport
15 IF ZSysop = ZTrue THEN
ZOutTxt$ = "Xport to What File " + ZPressEnter$
ZSubParm = 1
CALL TGet
IF ZUserIn$ = "" THEN _
EXIT SUB
ToPrint$ = ZUserIn$
CALL AllCaps (ToPrint$)
Call Findit(ToPrint$)
If ZOK Then Call OpenWorkA (ToPrint$) Else CALL OpenOutW(ToPrint$)
PRINT #2,ForPrintNum$
PRINT #2,string$(72,"~")
PRINT #2,ForPrintFrom$
PRINT #2,ForPrintTo$
PRINT #2,ForPrintRe$
PRINT #2,string$(72,"~")
POut$=""
FOR PrintLoop= ForPrintRec+1 to ForPrintRec+PNumRecs-1
GET 1,PrintLoop
FOR Loop1 = 1 to LEN(ZMsgRec$)
IF MID$(ZMsgRec$,Loop1,1) <> CHR$(227) THEN
POut$=POut$+MID$(ZMsgRec$,Loop1,1)
ELSE
PRINT #2,POut$
POut$=""
END IF
NEXT Loop1
NEXT PrintLoop
PRINT #2,ZCRLF$
close #2
END IF
End Sub